home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / apple-mac-advocate-ii-fall-1997.iso / mac / MacOS / Other Installers / LaserWriter 8.4.1 Installer / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / PS_-8175 < prev    next >
Encoding:
Text File  |  1996-09-10  |  650 b   |  51 lines
  1. %%BeginFile: lw8_level2_colorimage-2.0
  2. /rgbclut Z
  3. /hival Z
  4. /:k
  5. {
  6. /rgbclut xs
  7. pop
  8. bpc dup 8 eq
  9. {
  10. pop 255
  11. }{
  12. 4 eq
  13. {
  14. 15
  15. }{
  16. 3
  17. }ifelse
  18. }ifelse
  19. /hival xs
  20. [/Indexed $c hival rgbclut]setcolorspace
  21. $j dup begin
  22. /Width iw def
  23. /Height ih def
  24. /Decode[0 hival]def
  25. /ImageMatrix[iw 0 0 ih 0 0]def
  26. /DataSource setupimageproc def
  27. /BitsPerComponent bpc def
  28. /Interpolate smoothflag def
  29. end
  30. image
  31. }bd
  32. /:l
  33. {
  34. $j dup begin
  35. /Width iw def
  36. /Height ih def
  37. /Decode[[currentcolor]length{0 1}repeat]def
  38. /ImageMatrix[iw 0 0 ih 0 0]def
  39. /DataSource setupimageproc def
  40. /BitsPerComponent 8 def
  41. /Interpolate smoothflag def
  42. end
  43. image
  44. }bd
  45. /:x
  46. {
  47. /DeviceGray setcolorspace
  48. :l
  49. }bd
  50. %%EndFile
  51.